Toot-Can-Afford-P names a function, with lambda list (TOOT STORE-ITEM):
Whether TOOT can afford STORE-ITEM
Defined in file src/quaestor.lisp.